function [ W ] = MockWNoisedLined( lam )
% Prideti triuksmai, linijiniai spektrai
Aampl = 1.5;
Acenter = 530;
Asigma = 10;

Aspektras = Gauss(lam, Aampl, Acenter, Asigma)';
Aspektras = AddNoise(Aspektras);

Bampl = 1.5;
Bcenter = 400;
Bsigma = 10;

Bspektras = Gauss(lam, Bampl, Bcenter, Bsigma)';
Bspektras = AddNoise(Bspektras);

Campl = 1.5;
Ccenter = 300;
Csigma = 10;

Cspektras = Gauss(lam, Campl, Ccenter, Csigma)';
Cspektras = AddNoise(Cspektras);


spec = [Aspektras Bspektras Cspektras];

W = spec;

end

